﻿Namespace Users
    Public Class UserPreferenceVO
        Private _userPreferenceId As Integer
        Private _userCompanyId As Integer
        Private _preferenceId As Integer
        Private _value As String

        Sub New()
        End Sub

        Sub New(entity As Data.BaseModel.UserPreference)
            If entity IsNot Nothing Then
                userPreferenceId = entity.UserPreferenceId
                userCompanyId = entity.UserCompanyId
                preferenceId = entity.PreferenceId
                value = entity.Value
            End If
        End Sub

        Public Property userPreferenceId As Integer
            Get
                Return _userPreferenceId
            End Get
            Set(value As Integer)
                _userPreferenceId = value
            End Set
        End Property
        Public Property userCompanyId As Integer
            Get
                Return _userCompanyId
            End Get
            Set(value As Integer)
                _userCompanyId = value
            End Set
        End Property
        Public Property preferenceId As Integer
            Get
                Return _preferenceId
            End Get
            Set(value As Integer)
                _preferenceId = value
            End Set
        End Property
        Public Property value As String
            Get
                Return _value
            End Get
            Set(value As String)
                _value = value
            End Set
        End Property
    End Class
End Namespace